home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed36.d64 / menu (.txt) next >
Commodore BASIC  |  2007-02-04  |  793b  |  31 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 15 PRINT"[153][147]            WHC  ENTERPRISES    "
  3. 17 PRINT"         ENGLISH EXERCISES - E    [146]"
  4. 20 PRINT"                 ED-36 [146]     "
  5. 25 PRINT""
  6. 30 DIMA$(15)
  7. 35 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  8. 40 INPUT"CHOOSE(1-15):";A$
  9. 45 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO35
  10. 50 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  11. 55 FORT=1TO1500:NEXT:PRINT"[147]LOADING........ ";A$(A)
  12. 60 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  13. 75 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  14. 59999 :
  15. 60001 DATA "UNIT E-1"
  16. 60002 DATA "UNIT E-2"
  17. 60003 DATA "UNIT E-3"
  18. 60004 DATA "UNIT E-4"
  19. 60005 DATA "UNIT E-5"
  20. 60006 DATA "UNIT E-6"
  21. 60007 DATA "UNIT E-7"
  22. 60008 DATA "UNIT E-8"
  23. 60009 DATA "UNIT E-9"
  24. 60010 DATA "UNIT E-10"
  25. 60011 DATA "UNIT E-11"
  26. 60012 DATA "UNIT E-12"
  27. 60013 DATA "MORE UNITS"
  28. 60014 DATA "TEACHER INFO"
  29. 60015 DATA "TEXTMASTER"
  30. 60016 REM WHC 92 04 20
  31.